Reset in ANSIColor sets the background to black

--===============1968950480==
Content-Type: multipart/alternative; boundary=0016e64654cab2cdb804660cf985

--0016e64654cab2cdb804660cf985
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Hi,

My current DOS background color is white with Black text. I use ANSIColor
module to print error messages in Red color. I use the Color command and I
face two issues:

1. The Red color error message text thats printed on DOS has black
background, instead of white only.
2. On typing CLS the background color changes to black and text color
changes to white.

What is my Expectation:
1. On prinitng the text in red color should not have the background color
black but use the current DOS background color(White in my case).

2. On doing CLS on DOS, the dos should maintain its background color(White
in my case) rather then setting it to default black background color.

My Code:
use Win32::Console::ANSI;
use Term::ANSIColor;
print color "Bold Red";
print "ERROR_MSG = xyz";
print color 'reset';

Any help is much appreciated.

Thanks,
Jai!

--0016e64654cab2cdb804660cf985
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Hi,

My current DOS background color is white with Black text. I
use ANSIColor module to print error messages in Red color. I use the
Color command and I face two issues:

1. The Red color error message text thats printed on DOS has black background, instead of white only.

2. On typing CLS the background color changes to black and text color changes to white.

What is my Expectation:
1.
On prinitng the text in red color should not have the background color
black but use the current DOS background color(White in my case).


2. On doing CLS on DOS, the dos should maintain its background
color(White in my case) rather then setting it to default black
background color.

My Code:
use Win32::Console::ANSI;
use Term::ANSIColor;

print color "Bold Red";
print "ERROR_MSG = xyz";
print color 'reset';

Any help is much appreciated.

Thanks,
Jai!

--0016e64654cab2cdb804660cf985--

--===============1968950480==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1968950480==--

Re: Reset in ANSIColor sets the background to black

Perl Help wrote:
> Hi,
>
> My current DOS background color is white with Black text. I use
> ANSIColor module to print error messages in Red color. I use the Color
> command and I face two issues:
>
> 1. The Red color error message text thats printed on DOS has black
> background, instead of white only.
> 2. On typing CLS the background color changes to black and text color
> changes to white.
>
> What is my Expectation:
> 1. On prinitng the text in red color should not have the background
> color black but use the current DOS background color(White in my case).
>
> 2. On doing CLS on DOS, the dos should maintain its background
> color(White in my case) rather then setting it to default black
> background color.
>
> My Code:
> use Win32::Console::ANSI;
> use Term::ANSIColor;
> print color "Bold Red";
> print "ERROR_MSG = xyz";
> print color 'reset';

Seems OK to me on 5.8.8 B820. 5.001 & 5.006 on the modules, resp.

> p test.pl [switched my FG/BG to reverse (black on white) prior to test
Prior to error [black on white]
ERROR_MSG = xyz [this was red on white]
Done [black on white]

Everything came out fine as near as I can tell.

My code:

use strict;
use warnings;
use Win32::Console::ANSI;
use Term::ANSIColor;

print "Prior to error\n";
print color "Bold Red";
print "ERROR_MSG = xyz\n";
print color 'reset';
print "Done\n";

__END__

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Reset in ANSIColor sets the background to black

--===============1485487120==
Content-Type: multipart/alternative; boundary=001636284c745285da04661165e5

--001636284c745285da04661165e5
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Hi Bill,

Thanks for your response. DId you try running CLS command after executing
the code. When I do that, it switches my FG/BG color to default that is
White on Black. More so, my code is not showing the same results as you
described. Is there any other file I need to take care off? Do you want me
to send you the screen shot how it looks like when I run the program?

Thanks once again for your help,

~Jai!

On Thu, Mar 26, 2009 at 3:53 PM, Bill Luebkert wrote:

> Perl Help wrote:
>
>> Hi,
>>
>> My current DOS background color is white with Black text. I use ANSIColor
>> module to print error messages in Red color. I use the Color command and I
>> face two issues:
>>
>> 1. The Red color error message text thats printed on DOS has black
>> background, instead of white only.
>> 2. On typing CLS the background color changes to black and text color
>> changes to white.
>>
>> What is my Expectation:
>> 1. On prinitng the text in red color should not have the background color
>> black but use the current DOS background color(White in my case).
>>
>> 2. On doing CLS on DOS, the dos should maintain its background color(White
>> in my case) rather then setting it to default black background color.
>>
>> My Code:
>> use Win32::Console::ANSI;
>> use Term::ANSIColor;
>> print color "Bold Red";
>> print "ERROR_MSG = xyz";
>> print color 'reset';
>>
>
> Seems OK to me on 5.8.8 B820. 5.001 & 5.006 on the modules, resp.
>
> > p test.pl [switched my FG/BG to reverse (black on white)
> prior to test
> Prior to error [black on white]
> ERROR_MSG = xyz [this was red on white]
> Done [black on white]
>
> Everything came out fine as near as I can tell.
>
> My code:
>
> use strict;
> use warnings;
> use Win32::Console::ANSI;
> use Term::ANSIColor;
>
> print "Prior to error\n";
> print color "Bold Red";
> print "ERROR_MSG = xyz\n";
> print color 'reset';
> print "Done\n";
>
> __END__
>
>

--001636284c745285da04661165e5
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hi Bill,

Thanks for your response. DId you try running CLS command a=
fter executing the code. When I do that, it switches my FG/BG color to defa=
ult that is White on Black. More so, my code is not showing the same result=
s as you described. Is there any other file I need to take care off? Do you=
want me to send you the screen shot how it looks like when I run the progr=
am?


Thanks once again for your help,

~Jai!

RE: Reset in ANSIColor sets the background to black

This is a multi-part message in MIME format.

--===============0016091931==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C9AEE4.6A03F6EA"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C9AEE4.6A03F6EA
Content-Type: text/plain;
charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable

Hello
=20
Please try
=20
Thanks
Erich
=20
use strict;
use warnings;
use Win32::Console::ANSI;
use Term::ANSIColor;
use Term::ANSIScreen qw/:color :cursor :screen/;
color 'bold green on blue';
print "\nPrior to error\n";
print colored ("\nThis is an error\n", 'bold red',);
color 'bold green on blue';
print "\nAfter error\n";
__END__


________________________________

From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Perl
Help
Sent: Thursday, March 26, 2009 11:33 PM
To: Bill Luebkert
Cc: activeperl@listserv.activestate.com
Subject: Re: Reset in ANSIColor sets the background to black


Hi Bill,

Thanks for your response. DId you try running CLS command after
executing the code. When I do that, it switches my FG/BG color to
default that is White on Black. More so, my code is not showing the same
results as you described. Is there any other file I need to take care
off? Do you want me to send you the screen shot how it looks like when I
run the program?

Thanks once again for your help,

~Jai!


On Thu, Mar 26, 2009 at 3:53 PM, Bill Luebkert
wrote:


Perl Help wrote:
=09

Hi,
=09
My current DOS background color is white with Black
text. I use ANSIColor module to print error messages in Red color. I use
the Color command and I face two issues:
=09
1. The Red color error message text thats printed on DOS
has black background, instead of white only.
2. On typing CLS the background color changes to black
and text color changes to white.
=09
What is my Expectation:
1. On prinitng the text in red color should not have the
background color black but use the current DOS background color(White in
my case).
=09
2. On doing CLS on DOS, the dos should maintain its
background color(White in my case) rather then setting it to default
black background color.
=09
My Code:
use Win32::Console::ANSI;
use Term::ANSIColor;
print color "Bold Red";
print "ERROR_MSG =3D xyz";
print color 'reset';
=09


Seems OK to me on 5.8.8 B820. 5.001 & 5.006 on the modules,
resp.
=09
> p test.pl [switched my FG/BG to reverse (black on
white) prior to test
Prior to error [black on white]
ERROR_MSG =3D xyz [this was red on white]
Done [black on white]
=09
Everything came out fine as near as I can tell.
=09
My code:
=09
use strict;
use warnings;=20

use Win32::Console::ANSI;
use Term::ANSIColor;
=09
=09
print "Prior to error\n";
print color "Bold Red";
print "ERROR_MSG =3D xyz\n";
print color 'reset';
print "Done\n";
=09
__END__
=09
=09



------_=_NextPart_001_01C9AEE4.6A03F6EA
Content-Type: text/html;
charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable



charset=3Dus-ascii">

Re: Reset in ANSIColor sets the background to black

Perl Help wrote:
> Hi Bill,
>
> Thanks for your response. DId you try running CLS command after
> executing the code. When I do that, it switches my FG/BG color to
> default that is White on Black. More so, my code is not showing the same
> results as you described. Is there any other file I need to take care
> off? Do you want me to send you the screen shot how it looks like when I
> run the program?

OK, my mistake for not stating all. I ran it in a tcsh window rather
than a cmd window. When I try it in a cmd window, I get the same results
as you described. I'm so used to using tcsh rather than cmd, it didn't
even register that I wasn't reproducing the scenario exactly. So it
looks like there is a problem somewhere - maybe there's a workaround,
but I don't know.

You could always switch to tcsh (maybe bash would work too). :)
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Reset in ANSIColor sets the background to black

--===============1930464365==
Content-Type: multipart/alternative; boundary=0016e6476a0205ec0c04661e8224

--0016e6476a0205ec0c04661e8224
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Hi,

I tried this code, but it shows the same results in cmd.exe. Also, is there
a way I can read the current background and foreground color of dos window
from perl?

Thanks,
Jai!

On Fri, Mar 27, 2009 at 7:01 AM, Singer, Erich <
Erich.Singer@starcompliance.com> wrote:

> Hello
>
> Please try
>
> Thanks
> Erich
>
> use strict;
> use warnings;
> use Win32::Console::ANSI;
> use Term::ANSIColor;
> use Term::ANSIScreen qw/:color :cursor :screen/;
> color 'bold green on blue';
> print "\nPrior to error\n";
> print colored ("\nThis is an error\n", 'bold red',);
> color 'bold green on blue';
> print "\nAfter error\n";
> __END__
>
> ------------------------------
> *From:* activeperl-bounces@listserv.ActiveState.com [mailto:
> activeperl-bounces@listserv.ActiveState.com] *On Behalf Of *Perl Help
> *Sent:* Thursday, March 26, 2009 11:33 PM
> *To:* Bill Luebkert
> *Cc:* activeperl@listserv.activestate.com
> *Subject:* Re: Reset in ANSIColor sets the background to black
>
> Hi Bill,
>
> Thanks for your response. DId you try running CLS command after executing
> the code. When I do that, it switches my FG/BG color to default that is
> White on Black. More so, my code is not showing the same results as you
> described. Is there any other file I need to take care off? Do you want me
> to send you the screen shot how it looks like when I run the program?
>
> Thanks once again for your help,
>
> ~Jai!
>
> On Thu, Mar 26, 2009 at 3:53 PM, Bill Luebkert wrote:
>
>> Perl Help wrote:
>>
>>> Hi,
>>>
>>> My current DOS background color is white with Black text. I use ANSIColor
>>> module to print error messages in Red color. I use the Color command and I
>>> face two issues:
>>>
>>> 1. The Red color error message text thats printed on DOS has black
>>> background, instead of white only.
>>> 2. On typing CLS the background color changes to black and text color
>>> changes to white.
>>>
>>> What is my Expectation:
>>> 1. On prinitng the text in red color should not have the background color
>>> black but use the current DOS background color(White in my case).
>>>
>>> 2. On doing CLS on DOS, the dos should maintain its background
>>> color(White in my case) rather then setting it to default black background
>>> color.
>>>
>>> My Code:
>>> use Win32::Console::ANSI;
>>> use Term::ANSIColor;
>>> print color "Bold Red";
>>> print "ERROR_MSG = xyz";
>>> print color 'reset';
>>>
>>
>> Seems OK to me on 5.8.8 B820. 5.001 & 5.006 on the modules, resp.
>>
>> > p test.pl [switched my FG/BG to reverse (black on white)
>> prior to test
>> Prior to error [black on white]
>> ERROR_MSG = xyz [this was red on white]
>> Done [black on white]
>>
>> Everything came out fine as near as I can tell.
>>
>> My code:
>>
>> use strict;
>> use warnings;
>> use Win32::Console::ANSI;
>> use Term::ANSIColor;
>>
>> print "Prior to error\n";
>> print color "Bold Red";
>> print "ERROR_MSG = xyz\n";
>> print color 'reset';
>> print "Done\n";
>>
>> __END__
>>
>>
>

--0016e6476a0205ec0c04661e8224
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hi,

I tried this code, but it shows the same results in cmd.exe. Als=
o, is there a way I can read the current background and foreground color of=
dos window from perl?

Thanks,
Jai!

RE: Reset in ANSIColor sets the background to black

This is a multi-part message in MIME format.

--===============0975741388==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C9AF12.9B06ABE0"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C9AF12.9B06ABE0
Content-Type: text/plain;
charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable

=20
Hello
=20
I am using ver 5.10.0.
In the example, I ignore the current background and foreground colors (
because I do not know how to get them...) and force a bold green on a
blue background. Error messages should be bold red on a blue background.
I have added the code in bold e.g. system ("cls");=20
Issue the color changes at the beginning of your program, and this way
you minimize the effect of the cls command, e.g. you do not loose too
much data already displayed on the screen
=20
HTH
=20
Erich
=20
use strict;
use warnings;
use Win32::Console::ANSI;
use Term::ANSIColor;
use Term::ANSIScreen qw/:color :cursor :screen/;
color 'bold green on blue';
system ("cls");
print "\nPrior to error\n";
print colored ("\nThis is an error\n", 'bold red',);
color 'bold green on blue';
print "\nAfter error\n";
__END__

=20

________________________________

From: Perl Help [mailto:perlhelp60@gmail.com]=20
Sent: Friday, March 27, 2009 3:12 PM
To: Singer, Erich
Cc: Bill Luebkert; activeperl@listserv.activestate.com
Subject: Re: Reset in ANSIColor sets the background to black


Hi,

I tried this code, but it shows the same results in cmd.exe. Also, is
there a way I can read the current background and foreground color of
dos window from perl?

Thanks,
Jai!


On Fri, Mar 27, 2009 at 7:01 AM, Singer, Erich
wrote:


Hello
=20
Please try
=20
Thanks
Erich
=20
=09
use strict;
use warnings;
use Win32::Console::ANSI;
use Term::ANSIColor;
=09
use Term::ANSIScreen qw/:color :cursor :screen/;
color 'bold green on blue';
print "\nPrior to error\n";
print colored ("\nThis is an error\n", 'bold red',);
color 'bold green on blue';
print "\nAfter error\n";
__END__
=09

________________________________

From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Perl
Help
Sent: Thursday, March 26, 2009 11:33 PM
To: Bill Luebkert
Cc: activeperl@listserv.activestate.com
Subject: Re: Reset in ANSIColor sets the background to black
=09
=09
Hi Bill,
=09
Thanks for your response. DId you try running CLS command after
executing the code. When I do that, it switches my FG/BG color to
default that is White on Black. More so, my code is not showing the same
results as you described. Is there any other file I need to take care
off? Do you want me to send you the screen shot how it looks like when I
run the program?
=09
Thanks once again for your help,
=09
~Jai!
=09
=09
On Thu, Mar 26, 2009 at 3:53 PM, Bill Luebkert
wrote:
=09

Perl Help wrote:
=09

Hi,
=09
My current DOS background color is white with
Black text. I use ANSIColor module to print error messages in Red color.
I use the Color command and I face two issues:
=09
1. The Red color error message text thats
printed on DOS has black background, instead of white only.
2. On typing CLS the background color changes to
black and text color changes to white.
=09
What is my Expectation:
1. On prinitng the text in red color should not
have the background color black but use the current DOS background
color(White in my case).
=09
2. On doing CLS on DOS, the dos should maintain
its background color(White in my case) rather then setting it to default
black background color.
=09
My Code:
use Win32::Console::ANSI;
use Term::ANSIColor;
print color "Bold Red";
print "ERROR_MSG =3D xyz";
print color 'reset';
=09


Seems OK to me on 5.8.8 B820. 5.001 & 5.006 on the
modules, resp.
=09
> p test.pl [switched my FG/BG to reverse
(black on white) prior to test
Prior to error [black on white]
ERROR_MSG =3D xyz [this was red on white]
Done [black on white]
=09
Everything came out fine as near as I can tell.
=09
My code:
=09
use strict;
use warnings;=20

use Win32::Console::ANSI;
use Term::ANSIColor;
=09
=09
print "Prior to error\n";
print color "Bold Red";
print "ERROR_MSG =3D xyz\n";
print color 'reset';
print "Done\n";
=09
__END__
=09
=09




------_=_NextPart_001_01C9AF12.9B06ABE0
Content-Type: text/html;
charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable



charset=3Dus-ascii">